﻿Imports SecretaryToolData

Public Class frmCongregationAnalysis

	Private Sub frmCongregationAnalysis_Load(sender As Object, e As System.EventArgs) Handles Me.Load
		Dim myReport As New CongregationAnalysis

		With myReport
			lblActivePublishers.Text = .ActivePublishersCount
			lblActiveBaptizedPublishers.Text = .ActiveBaptizedPublishersCount
			lblRegularPublishers.Text = .RegularPublishersCount
			lblAuxiliaryPioneers.Text = .AuxiliaryPioneersCount
			lblNewPublishers.Text = .NewPublishersCount
			lblInactivePublishers.Text = .InactivePublishersCount
			lblReactivatedPublishers.Text = .ReactivatedPublishersCount
			lblElders.Text = .EldersCount
			lblMinisterialServants.Text = .MinisterialServantsCount
			lblDeafPublishers.Text = .DeafPublishersCount
			lblBlindPublishers.Text = .BlindPublishersCount
			lblRegularPioneers.Text = .RegularPioneersCount
		End With
	End Sub

	Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
		Me.Close()
	End Sub
End Class